Avalon 2/Avalon_02_1995-06_Avalon_Side_B.d64/play keys

Commodore BASIC | 2023-02-26 | 286b | 17 lines

1 dimn(63,2)
2 base=1072
3 fort=0to63
4 n(t,1)=int(base/256)
5 n(t,2)=base-n(t,1)*256
6 base=base+base*.0595
7 next t
10 sid=54272
20 pokesid+24,15
30 pokesid+6,80
40 a=peek(197):print"[147]":print"press some keys please"
50 if a=64thengoto40
60 pokesid+1,n(a,1)
65 pokesid+0,n(a,2)
70 pokesid+4,33
80 goto40